From 5ca94614e114528ee824324b527efcec24cd88d0 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Sat, 8 May 2004 14:55:36 +0000 Subject: [PATCH] (Fquo): If any argument is float, do the computation in floating point. --- src/data.c | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/src/data.c b/src/data.c index 6ce9a5d37aa..1a66e52632a 100644 --- a/src/data.c +++ b/src/data.c @@ -2698,6 +2698,12 @@ usage: (/ DIVIDEND DIVISOR &rest DIVISORS) */) int nargs; Lisp_Object *args; { + int argnum; + if (nargs == 2) + return arith_driver (Adiv, nargs, args); + for (argnum = 0; argnum < nargs; argnum++) + if (FLOATP (args[argnum])) + return float_arith_driver (0, 0, Adiv, nargs, args); return arith_driver (Adiv, nargs, args); } -- 2.30.2